***************************************************************** 

* * 

CP/M vers 2.2 Cold Start Loader. 



Written by Bobby Dale Gifford. 
3/17/30 

The following routines will boot CP/M from the Disk Jockey 
2D (all revs and models), or from the Disk Jockey Hard 
disk controller. 



The following tables explain the order of sector loading for 

each of the different sector sizes. An entry of 

represents a wrap back around (negative DMA adjustment) . 
An entry flagged with astricks represents a partial sector 
load . 



All sector sizes: 
Track sector 1 



























3 
10 
12 
14 
16 
18 
20 
22 
24 
26 

9 
11 
13 
15 
17 
19 
21 
23 
25 



e700 

2c00h 

2d00h 

2e00h 

2f00h 

3000h 

2780h 

2880h 

2980h 

2a80h 

2b80h 

2c80h 

2d30h 

2e30h 

2f30h 

2700h 

2800h 

2900h 

2a00h 

2b00h 



track 1 



256 

sec 

1 

3 

5 

7 

9 

11 

13 

15 

17 

19 

21 



address 

2c00h 
2e00h 
3000h 
3200h 
3400h 
3600h 
3300h 
3a00h 
3c00h 
3e00h 
4000h 



512 




sec 


address 


1 


2c00h 


3 


3000h 


5 


3400h 


7 


3800h 


9 


3c00h 


11 


4000h 


13 


4400h 


2 


2e00h 


4 


3200h 


5 


3600h 



** 



1024 
sec 

1 
3 
5 
7 



address 

2c00h 

3400h 

3c00h 

4400h 



2 

4 
6 



3000h 
3800h 
4000h 



The cold boot loader (sector 1, track 0) is loaded 
into the ram of the controller by the cold boot routine of 
the firmware. The first thing the boot does is to load into 
the controller ram, a version of the Disk Jockey 2D firmware. * 
From then on, all calls to the firmware will actually be * 
directed to the Disk Jockey Ram. The next process is to load * 
in a boot routine which can load in all of CP/M. This is * 
done by determining the size of the sectors on track 1, and 
using this information to load in the proper boot into 80H. 



The following depend on the sector size, all sectors are from * 



* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 






rtAt /Ofrari $+ s 



\jfblbjAo* 



f* 



S koulib 



* 23 


4200h 


8 


3a00h 




* 


* 25 


4430h 


10 


3e00h 




* 


* 




12 


4200h 




* 


* 2 


2d00h 




* 


* 4 


2f00h 








* 


* S 


3100h 


Discus 


M10, M20, M26 


* 


* 8 


3300h 


3 


e400h 


(If 2D is present) 


* 


* 10 


3500h 


4 


e600h 


(If 2D is present) 


* 


* 12 


3700h 


** 20 


4500h 




* 


* 14 


3900h 


5 


2700h 




* 


* 16 


3b00h 


6 


2900h 




* 


* 13 


3d00h 


7 


2b00h 




* 


* 20 


3f00h 


8 


2d00h 




* 


* 22 


4100h 


9 


2f00h 




* 


* 24 


4300h 


10 


3100h 




* 


* 26 


4500h 


11 


3 300h 




* 


* 




12 


3 500h 




* 


* 




13 


3700Ti 




* 


* 




14 


3900h 




* 


* 




15 


3b00h 




* 


* 




16 


3d00h 




* 


* 




17 


3f00h 




* 


* 




18 


4100h 




* 


* 




19 


4300h 




* 


* 










* 



***************************************************************** 
title '*** Cold Boot Loader for CP/M Ver. 2.2 ***' 






equ ^28 5~£? ;Memory size of target CP/M 

equ (rasize-20)*1024 ; Memory offset from 20k system 

equ 2700h+bias ; Console command processor 

equ ccp+1603h ;CBIOS address 

10 ; Maximum # of disk retries 



msize 

bias 

ccp 

bios 

retries equ 

***************************************************************** 



* 

* The following equates set up the relationship between the 

* 2D floppies and the Hard Disk Controllers. 



* 
* 

__ __ „_ ._ , __ ___.. * 

* '"'' ' " """' """" * 

***************************************************************** 



first equ ^s* ® 



maxhd equ 1 

max flop equ y^^2^ 



= Floppies are A-D drives and 

Hard Disk are E-P 

1 = Hard Disks are A-L ' drives and 

Floppies are M-P 
Set to number of hard disks 
Set to number of floppies 



***************************************************************** 

* * 

* The following equates are for the Diskus Hard disk if wanted. * 

* * 
***************************************************************** 




' l^l$Zr 



IP 'UAz., 



CTF? #/ -y . THFZrmzr~WtT 7f rrsrrc* 



W ZtQoAcTq Z^ftio 





if 


(maxhd ne ,0) and 


hdorg 


equ 


50h 


hdstat 


equ 


hdorg 


hdcntl 


equ 


hdorg 


hddata 


equ 


hdorg+3 


hdfunc 


equ 


hdorg+2 


hdcmnd 


equ 


hdorg+1 


hdreslt 


equ 


hdorg+1 


retry 


equ 


2 


tkz 


equ 


1 


oodone 


eau 


2 



first ;Want Hard Disk included ? 

Hard Disk Controller 

Hard Disk Status 

Hard Disk Control 

Hard Disk Data 

Hard Disk Function 

Hard Disk Command 

Hard Disk Result 

Retry bit of result 

Track zero bit of status 

Oneraction done bit nf statins 



comDlt 


equ 


4 


tmout 


equ 


8 


wfault 


equ 


10h 


drvrdy 


equ 


20h 


indx 


equ 


40h 


pstep 


equ 


4 


nstep 


equ 


0fbh 


hdrlen 


equ 


4 


secln 


equ 


512 


we nab 1 


equ 


0fh 


wreset 


equ 


0bh 


scenbl 


equ 


5 


dskclk 


equ 


7 


mdir 


equ 


0f7h 


null 


equ 


0fch 


idbuf f 


equ 





isbuf f 


equ 


8 


rsect 


equ 


1 


wsect 


equ 
endif 


5 



Complete bit of status i 
Time out bit of status 
Write fault bit of status 
Drive ready bit of status 
Index bit of status 
Step bit of function 
Step bit mask of function 
Sector header length 
Sector data length 
Write enable 
Write reset of function 
Controller control 
Disk clock for control 
Direction mask for function 
Null command 
Initialize data command 
Initialize header command 
Read sector command 
Write sector command 



***************************************************************** 

* * 

* Cold Boot loader common to all sector sizes. * 

* This sector is loaded into memory at e700h in a standard * 

* configuration. It is responsible for reading most of track * 

* into memory on cold boots . * 

* * 

***************************************************************** 





if 


max flop ne 


origin 


equ 


0E000H- 


d j ram 


equ 


origin+400h 


d jboot 


equ 
endif 


djram 


ffltjfy offsetb 


if 


(maxflop ne 


equ 


900h-origin 


fca^MS^' 


else 




offsetb 


equ 
endif 







if 


not first 


putden 


equ 


origin+02dh , 


putdma 


equ 


origin+12h 


getstat 


equ 


origin+27h 


putsec 


equ 


origin+0fH 


puttrk 


equ 


origin+0ch 


pu thorn 


equ 


origin+9h 


doread 


equ 


origin+15h 


boterr 


equ 


origin+2ah 




org 


origin 


diff 


set 


origin+700h-$ 




lxi 


sp,stac+dif f 


f irmlod 


mvi 


a, 6 


newsec 


equ 


$-1 




inr 


a 




inr 


a 




cpi 


27 




jz 


ccp+500h 




jc 


nowrap+dif f 




sui 


19 


nnwran 


=;+- a 


npu^pr+rli f ■? 



;Set density 
;Disk Jockey 
;Disk status 
;Disk Jockey 
;Disk Jockey 
;Disk Jockey 
;Disk Jockey 
;Disk Jockey 



routine on Disk Jockey 2D 

2D set DMA address routine 

routine on Disk Jockey 2D 

2D set sector routine 

2D set track routine 

2D track seek 

2D read routine 

2D flash error light routine 



;Disk Jockey 2D ram 

; Offset to boot loader address 

; Previous sector # 
; Update sector # 
;Test if all done 
;Test if wrap around 





mov 


c,a 






call 


putsec 


;Set up the sector 




lxi 


h,ccp+400h 


; Previous DMA address 


newdma 


equ 


$-2 






lxi 


d,100h 


; Update DMA address 




dad 


d 






mov 


a,h 






cpi 


(ccp+980h)/l00h 






jc 


nowrp+diff 






jnz 


wrp+diff 






mov 


a,l 






cpi 


(ccp+980h) mod 100h 




jc 


nowrp+diff 




wrp 


lxi 


d,-980h 






dad 


d 




nowrp 


shld 


newdma+dif f 


;Save the updated DMA address 




mov 


b,h 






mov 


c,l 






call 


putdma 


;Set up the new DMA address 




lxi 


b,retries*100h+0?Maximum # of errors 


fread 


push 


b 






call 


puttrk 


;Set up the proper track 




call 


doread 


; Read the sector 




pop 


b 






jnc 


f irmlod+dif f 


;Continue if no error 




dcr 


b 






jnz 


fread+diff 


?Keep trying if error 




jmp 


boterr 


; To many errors, flash the li 




ds 


80h-($ mod 30h) 




stac 


equ 


$ 





***************************************************************** 

* * 

* The following equates relate to the Thinker Toys 2D controller* 

* If the controller is non standard (0E000H) only the ORIGIN * 

* equate need be changed. This version of the Cbios will work * 

* with 2D controller boards rev 0,1,3,3.1,4. * 

* * 

***************************************************************** 



djcin 


equ 


djram+3h ; 


Disk 


Jockey 


djcout 


equ 


djram+6h ; 


Disk 


Jockey 


d jhome 


equ 


djram+9h j 


Disk 


Jockey 


d jtrk 


equ 


djram+0ch ; 


Disk 


Jockey 


djsec 


equ 


djram+0fh 


Disk 


Jockey 


d jdma 


equ 


djram+012h 


Disk 


Jockey 


d jread 


equ 


djram+15h , 


Disk 


Jockey 


d jwrite 


equ 


djram+18h ; 


Disk 


Jockey 


djsel 


equ 


djram+lbh , 


Disk 


Jockey 


djdmast 


equ 


djram+24h 


Disk 


Jockey 


djstat 


equ 


djram+27h 


•Disk 


Jockey 


djerr 


equ 


djram+2ah , 


•Disk 


Jockey 


djden 


equ 


djram+2dh 


•Disk 


Jockey 


djtstat 


equ 


djram+21h 


•Disk 


Jockey 


d jside 


equ 


djram+30h 


•Disk 


Jockey 



2D character input routine 

2D character output routine 

2D track zero seek 

2D track seek routine 

2D set sector routine 

2D set DMA address 

2D read routine 

2D write routine 

2D select drive routine 

2D dma status 

2D status routine 

2D error, blink led 

2D set density routine 

2D terminal status routine 

2D set side routine 



***************************************************************** 

* * 

* The following three sectors of code reside at 80H. There is * 

* one sector for each of the possible sector sizes (256,512, * 

* 1324) . Each sector is responsible for performing a Gold Boot * 

* for the specified sector size. 

* * 
***************************************************************** 



rti f f 



so-J- 



BPrh-s 





lxi 


sp,cstk256+diff 




lxi 


b,26*100h+l 


clod256 


push 


b 




call 


d jsec 




lxi 


h,ccp+300h 


cdma25S 


equ 


$-2 




lxi 


d,200h 




dad 


d 




shld 


cdma256+diff 




mov 


b,h 




mov 


c,l 




call 


djdma 




call 


crd256+diff 




pop 


b 




dcr 


b 




jz 


bios 




ravi 


a, 2 




add 


c 




mov 


c,a 




cpi 


27 




jc 


clod256+diff 




sui 


25 




mov 


c, a 




lxi 


h,ccp+400h 




shld 


cdma256+diff 




jmp 


clod256+diff 



Set up stack at end of this sector 
B = sector count, C = sector # 
Save sector and count 
Set the next sector to read 

Get DMA address (self modifying) 

Storage for previous DMA address 

Offset to new DMA address 

Add in offset, HL = new DMA address 

Save new DMA address 

Put DMA address into BC 

Set the DMA address 

Attempt a read 

Recover sector number and count 

B = count, C = number 
Update sector count 
All done ? 
Sector update 

Add in the sector skew factor 
Put new sector back into C 
Past the end of the track ? 
Take jump if not past end of track 
Perform a negative sector adjustment 
Put new sector in C 
Negative DMA adjustment 
Save the new DMA address 
Continue reading 



***************************************************************** 

* * 

* Crd256 does the actual read from the controller, the DMA * 

* address and sector # have already been set up. * 

* * 
***************************************************************** 



crd256 


lxi 


b,retries*100h+ 


cr256 


push 


b 




call 


d jtrk 




call 


d jread 




pop 


b 




rnc 






dcr 


b 




}nz 


cr256+diff 




jmp 


djerr 




ds 


80h-($ mod 80h) 


cstk256 


equ 


$ 



;Save error count 

; Initialize the track 

; Attempt the read 

; Restore the error count 

;Return if no error 

; Update error count 

;Try again if not to many errors 

;Go and flash the light on controller 



***************************************************************** 

* * 

* The next loads CP/M from a 512 byte sector diskette. * 

* * 

***************************************************************** 



diff 



set 



80h-$ 



lxi 
lxi 

clod512 push 
call 
lxi 

cdma512 equ 
lxi 
dad 
shld 



sp,cstk512+diff 

b,13*100h+l 

b 

djsec 

h,ccp+100h 

$-2 

d,400h 

d 

cdma512+diff 



Set up stack at end of this sector 

B = sector count, C = sector # 

Save sector and count 

Set the next sector to read 

Get DMA address (self modifying) 

Storage for previous DMA address 

Offset to new DMA address 

Add in offset, HL = new DMA address 

Save new DMA address 



Put DMA address into BC 

Set the DMA. address 

Attempt a read 

Recover sector number and count 

B = count, C = number 
Update sector count 
All done ? 
Sector update 

Add in the sector skew factor 
Put new sector back into C 
Past the end of the track ? 
Take jump if not past end of track 
Perform a negative sector adjustment 
Put new sector in C 
Negative DMA adjustment 
Save the new DMA address 
Continue reading 

***************************************************************** 

* 



mov 


b,h 


mov 


c,l 


call 


d jdma 


call 


crd512+diff 


PO? 


b 


dcr 


b 


JZ 


bios 


mvi 


a, 2 


add 


c 


mov 


c,a 


cpi 


14 


DC 


clod512+diff 


sux 


13 


mov 


c,a 


Ixi 


h,ccp+300h 


shld 


cdma512+diff 


]mp 


clod512+diff 



* Crd512 does the actual read from the controller, the DMA 

* address and sector # have already been set up. 



***************************************************************** 



crd512 Ixi 
cr512 push 
call 
call 
pop 
rnc 
dcr 
jnz 

jmp 

ds 
cstk512 equ 



b, retries* 100h+l ; Maximum # of attempts 
b ;Save error count 

djtrk ; Initialize the track 

djread ; Attempt the read 

b ; Restore the error count 

; Return if no error 
b ; Update error count 

cr512+diff ;Try again if not to many errors 
djerr ;Go and flash the light on controller 

80h-($ mod 30h) 
$ 



***************************************************************** 

* * 

* The next sector loads CP/M from a 1024 byte sector diskette. * 

* * 

***************************************************************** 

diff set 30h-$ 



Ixi 
Ixi 

call 


sp,cstkl24+d 

b,l*100h+7 

clodl24+diff 


Ixi 
Ixi 
Ixi 
cmovl24 ldax 


h,ccp+ld30h 

d,ccp+500h 

b,200h 

d 


mov 


m,a 


mx 


h 


inx 


d 


dcr 


c 


jnz 
dcr 


cmovl24+dif f 
b 


jnz 

Ixi 

shld 

Ixi 

call 


cmovl24+diff 

h,ccp-300h 

cdraal24+diff 

b,6*100h+l 

clodl24+diff 


imp 


DXOS 



sp,cstkl24+diff ;Set up stack at end of this sector 

;B = sector count, C = sector # 
;Load sector 5 into CCP 
; Destination of move 
; Source of move 

;Get a byte of source 

;Move it 

;Bump destination 

;Bump source 

;A11 done with this page ? 



? Initial DMA address 

;B = sector count, C = sector # 



;Save sector and count 

;Set the next sector to read 

;Get DMA address (self modifying) 

; Storage for previous DMA address 

; Offset to new DMA address 

;Add in offset, HL = new DMA address 

;Save new DMA address 

;Put DMA address into BC 

Set the DMA address 

Attempt a read 

Recover sector number and count 

B = count, C = number 
Update sector count 
All done ? 
Sector update 

Add in the sector skew factor 
Put new sector back into C 
Past the end of the track ? 
Take jump if not past end of track 
Perform a negative sector adjustment 
Put new sector in C 
Negative DMA adjustment 
Save the new DMA address 
Continue reading 

************************************************************* 

* * 

* Rdl24 does the actual read from the controller, the DMA * 

* address and sector # have already been set up. * 

* * 

***************************************************************** 



clodl24 


push 


b 




call 


djsec 




lxi 


h,ccp-300h 


cdmal24 


equ 


$-2 




lxi 


d,S00h 




dad 


d 




shld 


cdmal24+diff 




mov 


b,h 




mov 


c,l 




call 


djdma 




call 


crdl24+diff 




pop 


b 




dcr 


b 




rz 






mvi 


a, 2 




add 


c 




mov 


c,a 




cpi 


7 




jc 


clodl24+diff 




sui 


5 




mov 


c, a 




lxi 


h,ccp+103h 




shld 


cdmal24+diff 




jmp 


clodl24+diff 



crdl24 
crl24 



lxi 
push 
call 
call 

POP 

rnc 
dcr 
jnz 
jmp 



b,retries*100h+l ;Maximum # of attempts 



b 

d jtrk 

d jread 

b 



crl24+diff 
djerr 



;Save error count 

; Initialize the track 

; Attempt the read 

; Restore the error count 

; Return if no error 

; Update error count 

;Try again if not to many errors 

?Go and flash the light on controller 



ds 
cstkl24 equ 



30h-($ mod 30h) 
$ 



***************************************************************** 



The next three sectors of code also reside at 30H. There is 
one sector for each of the possible sector sizes (256,512, 
1024). Each sector is responsible for performing a WARM Boot 
for the specified sector size. 



* 
* 

* 
* 
* 
* 

* The following table shows how sectors are read in, skewing 

* of the sectors is necessary because sequential sectors can 
not be read without waiting one complete revolution between 

each one. Entries of represent a wrap around (negative 

DMA adjustment) . An entry flagged with ** represents only a 
partial load from that sector. 



256 

sec 

1 

3 

5 

7 



address 
3100h 
3300h 
3500h 



512 

sec 

1 

3 

5 

7 



address 
3100h 
3500h 
3900h 



** 



1024 

sec 

1 

3 

5 



address 
3100h 
3900h 
4100h 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* 


9 


3900h 


* 


11 


3b001i 


* 


13 


3d00h 


* 


15 


3f00h 


* 
* 


17 


4100h 


* 


2 


3200h 


* 


4 


3400h 


* 


8 


3S00h 


* 


3 


3800h 


* 


10 


3a00h 


* 


12 


3c00h 


* 


14 


3e00h 


* 


16 


4000h 


* 







4100h 



2 


3300b 


4 


3700h 


6 


3b00h 


3 


3f00h 



2 

4 



** q at aai-. 9 3500h * 

3d00h * 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
***************************************************************** 



diff 



set 



30h-$ 



Set up stack at end of this sector 

B = sector count, C = sector # 

Save sector and count 

Set the next sector to read 

Get DMA address (self modifying) 

Storage for previous DMA address 

Offset to new DMA address 

Add in offset, HL = new DMA address 

Save new DMA address . 

Put DMA address into BC 

Set the DMA address 

Attempt a read 

Recover sector number and count 

B = count, C = number 
Update the sector count 
All done ? 
Sector update 

Add in the sector skew factor 
Put new sector back into C 
Past the end of the track ? 
Take jump if not past end of track 
Perform a negative sector adjustment 
Put new sector in C 
Negative DMA adjustment 
Save the new DMA address 
Continue reading 

***************************************************************** 

* * 

* Wrd256 does the actual read from the controller, the DMA * 

* address and sector # have already been set up. * 

* * 

***************************************************************** 



lxi 


sp,wstk256+diff 


lxi 


b,17*100h+l 


wlod2 56 push 


b 


call 


d jsec 


lxi 


h,ccp+300h 


wdma256 equ 


$-2 


lxi 


d,200h 


dad 


d 


shld 


wdma256+diff 


mov 


b,h 


mov 


c,l 


call 


d jdma 


call 


wrd256+diff 


pop 


b 


dcr 


b 


jz 


bios+3 


mvi 


a, 2 


add 


c 


mov 


c, a 


cpi 


19 


jc 


wlod2564-dif f 


sui 


17 


mov 


c, a 


lxi 


h,ccp+400h 


shld 


wdma256+dif f 


jmp 


wlod256+diff 



wrd256 


lxi 


b,retries*100h+ 


wr256 


push 


b 




call 


djtrk 




call 


djread 




pop 


b 




rnc 






dcr 


b 




jnz 


wr2 56+diff 




jmp 


djerr 




ds 


80h-($ mod 30h) 


ura-t-V Kfi 


omi 


$ 



;Save error count 

; Initialize the track 

; Attempt the read 

? Restore the error count 

.•Return if no error 

; Update error count 

;Try again if not to many errors 

;Go and flash the light on controller 



***************************************************************** 

* * 

* Disk Jockey 2D CP/M from a 512 byte sector diskette. * 

* * 

***************************************************************** 



diff 



set 



80h-$ 



;Set up stack at end of this sector 
;B = sector count, C = sector # 
;Load sector 9 into CCP 
; Destination of move 
; Source of move 

;Get a byte of source 

; Move it 

;Bump destination 

;Bump source 

;A11 done with this page ? 

; Initial DMA address 

;B = sector count, C = sector # 



;Save sector and count 

; Set the next sector to read 

;Get DMA address (self modifying) 

; Storage for previous DMA address 

; Offset to new DMA address 

;Add in offset, HL = new DMA address 

;Save new DMA address 

?Put DMA address into BC 

Set the DMA address 

Attempt a read 

Recover sector number and count 

B = count, C = number 
Update sector count 
All done ? 
Sector update 

Add in the sector skew factor 
Put new sector back into C 
Past the end of the track ? 
Take jump if not past end of track 
Perform a negative sector adjustment 
Put new sector in C 
Negative DMA adjustment 
Save the new DMA address 
Continue reading 

***************************************************************** 

* * 

* Wrd512 does the actual read from the controller, the DMA * 

* address and sector # have already been set up. 



lxi 


sp,wstk512+diff 


lxi 


b,l*100h+9 


call 


wlod512+diff 


lxi 


h,ccp+1500h 


lxi 


d,ccp+500h 


mvi 


c,0 


mov512 ldax 


d 


mov 


m, a 


inx 


h 


inx 


d 


dcr 


c 


jnz 


mov512+diff 


lxi 


h,ccp+300h 


shld 


wdma512+dif f 


lxi 


b,8*100h+2 


call 


wlod512+diff 


jmp 


bios+3 


wlod512 push 


b 


call 


djsec 


lxi 


h,ccp+100h 


wdraa512 equ 


$-2 


lxi 


d,400h 


dad 


d 


shld 


wdma512+dif f 


mov 


b,h 


mov 


c,l 


call 


djdma 


call 


wrd512+diff 


pop 


b 


dcr 


b 


rz 




mvi 


a, 2 


add 


c 


mov 


c, a 


cpi 


10 


jc 


wlod512+diff 


sui 


9 


mov 


c, a 


lxi 


h,ccp+100h 


shld 


wdma512+dif f 


jmp 


wlod512+diff 



* 

* * 

***************************************************************** 



wrd512 


lxi 


wr5l2 


push 




call 




call 




POP 




rnc 




dcr 



b,retries*100h+l ;Maximum # of attempts 
b ;Save error count 

djtrk ; Initialize the track 

djread ; Attempt the read 

b ; Restore the error count 

;Return if no error 
b ;Itadata error count 



jnz 

ds 
wstk.512 equ 



wr512+diff 
d jerr 

80h-($ mod 80h) 
$ 



;Try again if not to many errors 

;Go and flash the light on controller 



***************************************************************** 

* * 

* The next sector loads CP/M from a 1024 byte sector diskette. * 

* * 
***************************************************************** 

diff set 80h-$ 

sp,wstkl24+diff ;Set up stack at end of this sector 

;B = sector count, C = sector # 
;Load sector 6 into CCP 
; Destination of move 
; Source of move 

;Get a byte of source 

;Move it 

;Bump destination 

;Bump source 

;A11 done with this page ? 

; Initial DMA address 

;B = sector count, C = sector # 



;Save sector and count 

;Set the next sector to read 

;Get DMA address (self modifying) 

.•Storage for previous DMA address 

;Offset to new DMA address 

;Add in offset, HL = new DMA address 

;Save new DMA address 

;Put DMA address into BC 

Set the DMA address 

Attempt a read 

Recover sector number and count 

B = count, C = number 
Update sector count 
All done ? 
Sector update 

Add in the sector skew factor 
Put new sector back into C 
Past the end of the track ? 
Take jump if not past end of track 
Perform a negative sector adjustment 
Put new sector in C 
Negative DMA adjustment 
Save the new DMA address 
Continue reading 

***************************************************************** 
* * 



lxi 


sp,wstkl24+d 


lxi 


b,l*100h+5 


call 


wlodl24+diff 


lxi 


h,ccp+1500h 


lxi 


d,ccp+500h 


mvi 


c,0 


movl24 ldax 


d 


mov 


m,a 


inx 


h 


inx 


d 


dcr 


c 


jnz 


movl24+diff 


lxi 


h,ccp+100h 


shld 


wdmal24+dif f 


lxi 


b,4*100h+2 


call 


wlodl24+diff 


jmp 


bios+3 


wlodl24 push 


b 


call 


djsec 


lxi 


h,ccp-300h 


wdmal24 equ 


$-2 


lxi 


d,802Sh 


dad 


d 


shld 


wdmal24+diff 


mov 


b,h 


mov 


c,l 


call 


d jdma 


call 


wrdl24+diff 


pop 


b 


dcr 


b 


rz 




mvi 


a, 2 


add 


c 


mov 


c,a 


cpi 


6 


jc 


wlodl24+diff 


sui 


5 


mov 


c,a 


lxi 


h,ccp-300h 


shld 


wdmal24+diff 


Jn»P 


wlodl24+diff 



* Wrl24 does the actual read from the controller, the DMA 

* address and sector # have already been set up. 
* 



* 
* 
* 
***************************************************************** 



wrdl24 lxi 
wrl24 Dush 



b,retries*100h+l ; Maximum # of attempts 
t> !Ravf> e>irrr>Y- pnunt- 





call 


djtrk 




call 


d jread 




pop 


b 




rnc 






dcr 


b 




jnz 


wrl24+dif£ 




Dmp 


djerr 




ds 


80h-($ mod 30h) 


wstkl24 


aqu 


$ 



; Initialize the track 

; Attempt the read 

; Restore the error count 

; Return if no error 

; Update error count 

;Try again if not to many errors 

;Go and flash the light on controller 



***************************************************************** 
* * 

* 
* 
* 
* 



* The next sector of code resides at CCP+500h. It's task is to 

* move the firmware code into the Disk Jockey Ram, then 

* loading a sector into 80H which will load the rest of CP/M. 

* The sector loaded at 80H is dependent on the sector size 

* of the diskette being booted from. 



* 
* 



***************************************************************** 



diff 



set 



ccp+500h-$ 





jmp 


docold+diff 




jimp 


dowarm+dif f 


docold 


lxi 


sp,stk+dif f 




lxi 


h,djram 




lxi 


d f stk+diff 




lxi 


b,300h 


mloop 


ldax 


d 




mov 


m, a 




inx 


h 




inx 


d 




dcx 


b 




mov 


a,b 




ora 


c 




jnz 


mloop+diff 




call 


d jboot 




mvi 


a,l 




sta 


botbias+dif f 


dowarm 


lxi 


sp, stk+diff 




mvi 


c,l 




call 


djden 




mvi 


c,l 




mov 


a,c 




sta 


trknum+dif f 




call 


djsec 




lxi 


b, stk+diff 




call 


d jdma 




call 


reed+diff 




call 


d jstat 




ani 


0ch 




rar 






rar 






adi 


4 


botbias 


equ 


$-1 




mov 


c,a 




call 


djsec 




xra 


a 




sta 


trknum+dif f 




lxi 


b,80h 




niish 


h> 



;Used to relocate this sector of code 

;Jump to cold boot portion 
;Jump to warm boot portion 

;Set up initial stack at end of this sector 

; Destination pointer 

; Source pointer 

; Length of transfer 

;Get one byte of source 

;Put at destination 

;Bump destination 

;Bump source 

;Update count of bytes to move 

;Test if all done 

; Continue moving New Firmware 
; Initialize the new firmware 

;Set up for proper sector select 



;Set the density to double 

;Set up to read sector 1 on track 1 

;Set track 

;Set sector 

;Set the DMA address 

;Read the sector into memory at 

end of this sector 
; Determine the sector size 
; Strip off unwanted bits 
,-Form the desired sector for Cold Boot 
; based on the length of the 
; sectors on this diskette 

; Prepare to read the Cold Boot 
;Set up the sector 
; Track 

;Cold Boot loads at 80H 

?TTs^r? as -iiimn adrlr^ss +n Cold Root — 



call 


d jdraa 


ravi 


c,0 


call 


djden 


call 


reed+diff 


mvi 


c, 1 


jmp 


djden 



Density on track is single 

Read in the Cold Boot 

Set the density back to double 

Go to the Cold Boot < 



***************************************************************** 
* * 

* 
* 
* 
***************************************************************** 



* Reed does the actual read from the controller, the DMA 

* address and sector # have already been set up. 



reed 


lxi 


b,retries*100h+ 


trknum 


equ 


$-2 


reedl 


push 


b 




call 


djtrk 




call 


djread 




pop 


b 




rnc 






dcr 


b 




jnz 


reedl+diff 




jmp 


djerr 




ds 


80h-($ mod 30h) 


stk 


equ 


$ 



; Storage for track number 

,• Save error count 

; Initialize the track 

; Attempt the read 

; Re store the error count 

; Return if no error 

; Update error count 

;Try again if not to many errors 

;Go and flash the light on controller 



else 

***************************************************************** 

* * 

* Cold Boot loader for Discus M10, M20, M26. * 



***************************************************************** 





if 


maxflop ne 




org 


origin 




else 






org 


100h 




endif 




diff 


set 


100h-$ 


boothd 


lxi 


sp,cstkhd+di 




lxi 


b,l*100h+20 




call 


clodhd+diff 




lxi 


h,ccp+le00h 




lxi 


d,ccp 




mvi 


c,0 


cmovhd 


ldax 


d 




mov 


m, a 




inx 


h 




inx 


d 




dcr 


c 




jnz 


cmovhd+dif f 




lxi 


h,ccp-200h 




shld 


cdmahd+dif f 




lxi 


b,15*100h+5 




call 


clodhd+diff 




if 


maxflop ne 




mvi 


c,17 




mvi 


a, ( jmp) 




lxi 


h, origin 


clop 


cmp 


m 




jnz 


bios 



;Org program at Floppy origin 
; or else at 100h 



sp,cstkhd+diff ;Set up stack at end of this sector 

;B = sector count, C = sector # 
;Load sector 20 into CCP 
; Destination of move 
.•Source of move 

;Get a byte of source 

;Move it 

;Bump destination 

;Bump source 

;A11 done with this page ? 

; Initial DMA address 

;B = sector count, C = sector # 



; Check if Discus 2D is present 

; Should be 17 jumps in the jump table 



rNot 17 jumps . don't read in the raraware 



;Skip over the jump instruction 



; Update jump counter 

; Continue checking 

;Load in the Disk Jockey 2D ramware 



;Go to CP/M 

; Save sector and count 



;Get DMA address (self modifying) 

; Storage for previous DMA address 

; Offset to new DMA address 

;Add in offset, HL = new DMA address 

;Save new DMA address 

; Attempt a read 

; Recover sector number and count 

; B = count, C = number 

; Update sector count 

;A11 done ? 

; Continue reading 

***************************************************************** 

* * 

* Rdhd does the actual read from the controller, the DMA * 

* address and sector # have already been set up. * 

* * 

***************************************************************** 



inx 


h 


inx 


h 


inx 


h 


dcr 


c 


jnz 


clop+dif f 


lxi 


h,djram-200h 


shld 


cdmahd+dif f 


lxi 


b,2*100h+3 


call 


clodhd+diff 


endif 




jmp 


bios 


clodhd push 


b 


mov 


a,c 


sta 


hdsec+dif f 


lxi 


h,ccp-200h 


cdmahd equ 


$-2 


lxi 


d,200h 


dad 


d 


shld 


cdmahd+dif f 


call 


crdhd+diff 


POP 


b 


dcr 


b 


rz 




inr 


c 


jmp 


clodhd+diff 



crdhd lxi 


b,retries*10 


crhd push 


b 


call 


hdread+dif f 


pop 


b 


rnc 




dcr 


b 


jnz 


crhd+dif f 


jmp 


$ 


hdread call 


hdprep+dif f 


re 




mvi 


a, rsect 


out 


hdcmnd 


call 


process+dif f 


re 




xra 


a 


out 


hdcmnd 


mvi 


b,secln/4 


lhld 


cdmahd+dif f 


in 


hddata 


in 


hddata 


rtloop in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mov 


m, a 


inx 


h 


in 


hddata 


mov 


m,a 


inx 


h 


in 


hddata 


mr>\7 


m . a 



;Save error count 

; Attempt the read 

; Restore the error count 

; Return if no error 

; Update error count 

;Try again if not to many errors 

; Dynamic error halt 

; Prepare the sector header image 

;Error exit 

; Read sector command 

; Process the read 

; Error exit 

; Pointer to data buffer 

;Number of bytes to read 
;Get destination of data 
;Two dummy data bytes 

;Move four bytes 
;Byte one 

;Byte two 



;Byte three 



;Byte four 



inx 


h 


dcr 


b 


jnz 


rtloop+dif f 


27© u 




process in 


hdstat 


mov 


b, a 


ani 


opdone 


jz 


process+dif f 


mvi 


a,dskclk 


out 


hdcntl 


in 


hdstat 


ani 


tmout 


stc 




rnz 




in 


hdreslt 


ani 


retry 


stc 




rnz 




xra 


a 


ret 




hdprep in 


hdstat 


ani 


drvrdy 


stc 




rnz 




mvi 


a, isbuf f 


out 


hdcmnd 


mvi 


a, null 


out 


hdfunc 


xra 


a 


out 


hddata 


out 


hddata 


mvi 


a,0 


hdsec equ 


$-1 


out 


hddata 


mvi 


a,80h 


out 


hddata 


mvi 


a.dskclk 


out 


hdcntl 


mvi 


a,wenabl 


out 


hdcntl 


ret 





org 

cstkhd equ 
dw 
ds 
end if 



boothd+200h-2 



boothd+diff 
200h 



; Update byte count 

;Wait for command to finish 

;Turn on Disk Clock 
; Timed out ? 

;Any retries ? 
;No error exit 
;Is Drive ready ? 

; Initialize pointer to header buffer 

;Select drive A 

;Form head byte 
;Form track byte 
;Form sector byte 

;Form Key 

;Turn on Disk clock 

;Write enable on 



***************************************************************** 

* * 

* Disk Jockey 2D firmware revision 3.1 and 4.0 

* By George Morrow 



* 
* 
* 

* The following firmware is loaded into memory and then moved * 

* into the controller ram. * 

* * 

***************************************************************** 

if maxflop ne 
rom equ origin 
ram equ origin+400h 



10 



EQU 



ROM+3 f Sh 



UDATA 


EQU 


10 


£ DCMD 


EQU 


10+1 


DSTAT 


EQU 


DCMD 


DREG 


EQU 


10+2 


# USTAT 


EQU 


DREG 


CMDREG 


EQU 


10+4 


CSTAT 


EQU 


CMDREG 


# TRKREG 


EQU 


10+5 


SECREG 


EQU 


10+6 


DATREG 


EQU 


10+7 


* 

RCMD 


EQU 


200Q 


# WCMD 


EQU 


240Q 


HEAD 


EQU 


4 


LOAD 


EQU 


20Q 


# DENSTY 


EQU 


1 


ULOAD 


EQU 


30Q 


RSTBIT 


EQU 


4 


# ACCESS 


EQU 


2 


READY 


EQU 


40Q 


INDEX 


EQU 


20Q 


# RACMD 


EQU 


304Q 


CLRCHD 


EQU 


320Q 


SVCMD 


EQU 


35Q 


# SKCMD 


EQU 


33Q 


HCMD 


EQU 


11Q 


I STAT 


EQU 


4 


OSTAT 


EQU 


10Q 


DSIDE 


EQU 


10Q 


TZERO 


EQU 


4 


MDINT 


EQU 


3 


LIGHT 


EQU 


35Q 


NOLITE 


EQU 


76Q 


* 

DBOOT 


JMP 


BOOT 


TERMIN 


JMP 


origin+3 


TRMOUT 


JMP 


origin+6 


TKZERO 


JMP 


HOME 


TRKSET 


JMP 


SEEK 


SETSEC 


JMP 


SECSET 


SETDMA 


JMP 


DMA 


£ DREAD 


JMP 


READ 


DWRITE 


JMP 


WRITE 


SELDRV 


JMP 


DRIVE 


TPANIC 


JMP 


origin+leh 


TSTAT 


JMP 


origin+21h 


DMAST 


JMP 


DM STAT 


£ STATUS 


JMP 


DISKST 


DSKERR 


JMP 


ROM+52Q 


SETDEN 


JMP 


DENFIX 


SETSID 
* 


JMP 


SIDEFX 


* 

£ BOOT 


mov 


a,c 




sta 


disk 




sta 


bdisk 




mvi 


a,7fh 


dsrt 


rlc 






dcr 


c 




JP 


dsrt 




sta 


drvsel 




sta 


bdrvsel 




if 


first 




rai i 


•Fi tc i n 





endif 








Ida 


io-4 ; 


Test for Model A or B 




cpi 


(ret) 






jz 


mode la 






lxi 


d,origin 






lxi 


h,ram 






mvi 


c,boot-dboot ; 


Copy prom jump table intc 




if 


first 






call 


modelm 






mvi 


a,7fh 






call 


sdsel 






mvi 


a, clrcmd 






sta 


cmdreg 






Ida 


bdrvsel 






ori 


60h 






ani 


7fh 






call 


sdsel 






mvi 


a,9h 






call 


scbits 






mvi 


a, ( jz) 






sta 


indxl 






sta 


indx3 






mvi 


a, ( jnz) 






sta 


indx2 






call 


measur 






xchg 








shld 


btimer 






lxi 


d, btble 






lxi 


h,origin+7e3h 






mvi 


c,23 






endif 






41 modelra 


ldax 


d 






raov 


m # a 






inx 


d 






inx 


h 






dcr 


c 






jnz 


modelm 






ret 






btble 


db 







4) btimer 


dw 


1300b, 






db 


3,0 




bdrvsel 


db 


7 eh 




bdisk 


db 


0,8,0,9,0ffh,9,0ffh,9,0ffh,9,0ffh,9,0,l,0 


f ixio 


LHLD 


ROM+7 ; 


find the 2nd 




INX 


H ; 


byte of input routine 




LXI 


D,4 ; 


offset 




MOV 


A,M ; 


get addr of USTAT 




LXI 


H,SDSEL+1 ; 


I/O routines 




MOV 


M,A ; 


store USTAT addr 




DAD 


D ; 


increment mem addr 




MOV 


M,A 


•store USTAT addr 




DAD 


D ; 


increment mem addr 




XRI 


3 


• switch the addr 




MOV 


M,A 


store DSTAT addr 




DAD 


D 


•increment mem addr 




MOV 


M,A 


•store DAT AT addr 




DAD 


D 


•increment mem addr 




MOV 


M,A 


•store DSTAT addr 




ret 






mode la 


equ 


$ 






if 


not first 






mvi 


c,0 


rCopy last page of ram 




r-al 1 


modelm 







endif 






call 


f ixio 




mvi 


a, 3 




call 


scbits 




MVI 


A,CLRCMD 




STA 


CMDREG 




Ida 


drvsel 




call 


sdsel 




call 


measur 




xchg 






SHLD 


TIMER 




RET 




* 






gl 






DISKST 








LDA 


SECREG 




MOV 


B,A 




LDA 


TRKREG 




MOV 


C,A 




LDA 


DCREG 




CMA 






AN I 


1 




RRC 






MOV 


D,A 




LDA 


SIDE 




RLC 






RLC 






RLC 






ADD 


D 




MOV 


D,A 




LDA 


SECLEN 




RLC 






RLC 






ADD 


D 




MOV 


D,A 




LDA 


CDISK 




ADD 


D 




RET 




* 






* 






£ DMSTAT 








PUSH 


H 




LHLD 


DMAADR 




MOV 


B,H 




MOV 


C,L 




POP 


H 




RET 




* 






* 






DRIVE 








MVI 


A,374Q 




ADD 


C 




MVI 


A,20Q 




RC 






MOV 


A,C 




STA 


DISK 




RET 




* 






4b 






DMA 








LXI 


H,8-ROM 




DAD 


B 




JNC 


DMASET 




LXI 


H,-RAM 




DAD 


B 




JC 


DMARRT 



1791 reset 
command 
initialize 1791 
control bits 



get current 

sector no in B 
get current 

track no in C 
get current 

density in 

the msb 
position 

save in D 
put the 

side 

select 

flag 

in bit 

position 6 
put the 

sector length 

code P bits 

2 & 3 

put the current 
disk no in bits 
& 1 



;save the H-L pair 
;H-L pain 
;move the DMA 
;addr to B-C 
; recover H-L 



test for the 

new drive number 
less than 4 

; store the new 
; drive in DISK 



test the 

DMA address 
for conflict 
with the I/O 
on the DJ/2D 
• ron-hro! 1 f*r 





MVI 


A,20Q 




RET 




DMASET 








MOV 


H,B 




MOV 


L,C 




SHLD 


DMAADR 




XRA 


A 




RET 




* 






* 






HOME 








call 


hdload 




re 






call 


hentry 




PUSH 


PSW 




SBB 


A 




STA 


TRACK 




sta 


trkreg 




xra 


a 




sta 


tzflag 




JMP 


LEAVE+1 


HENTRY 








XRA 


A 




STA 


HDFLAG 




LXI 


H,0 




MVI 


A,HCMD 




CALL 


CENTRY 




AN I 


TZERO 




RNZ 






STC 






RET 




* 






* 






SECSET 








XRA 


A 




ORA 


C 




STC 






RZ 






MOV 


A,C 




CPI 


27 




CMC 






RC 






STA 


SECTOR 




RET 




* 






* 






SEEK 








MOV 


A,C 




CPI 


77 




CMC 






RC 






STA 


TRACK 




RET 




* 






* 






issue 








sta 


ecount+1 




call 


raeasur 




mvi 


c, 1 


is loop 








mov 


a,c 




sta 


secreg 




Ida 


sector 




emp 


c 




r 7. 





;get the DMA addr 
;to the H-L par 
; store 

; clear the error 
; flag and return 



load the head 
not ready error 
move the head 
save the flags 
update the 

track 

registers 
set the not 

verified flag 
unload the head 

update 

flags 
time out constant 
do the home 

command 
track zero bit 



; error flag 



test for 

sector zero 
error flag 

test for 

sector 
too large 

;save 



test for 
track 
too large 

;save 



; update count 
; find the index 
; start w/sector 1 

;initialize the 
; sector register 
;test for 
; target sector 





mvi 


a, rcind 




call 


comand 




jc 


pleave 




inr 


c 




jmp 


isloop 


comndp 








sta 


cmdreg 




mov 


c,b 




Ixi 


d,datreg 




Ibid 


dmaadr 




ret 




write 








CALL 


PREP 




jc 


leave 


wrentry 








mvi 


a , wcmd 




call 


comndp 


£ wrloop 








mov 


a ,m 




inx 


h 




stax 


d 




mov 


a,m 




inx 


h 




stax 


d 




mov 


a,m 




inx 


h 




stax 


d 




dcr 


c 




mov 


a,m 




inx 


h 




stax 


d 




jnz 


wrloop 




lxi 


h, wrentry 




jmp 


cbusy 


read 








call 


prep 




jc 


leave 


Q rdentry 








mvi 


a, rcmd 




call 


comndp 


A rdloop 








ldax 


d 




mov 


m, a 




inx 


h 




ldax 


d 




mov 


m, a 




inx 


h 




ldax 


d 




mov 


m, a 




inx 


h 




dcr 


c 




ldax 


d 




mov 


m,a 




inx 


h 




jnz 


rdloop 




lxi 


h, rdentry 


CBUSY 








push 


h 




lxi 


b,cstat 




call 


busy 




ani 


137Q 




jz 


leave-1 




r-ni 


1 0h 



; do a fake 

; read command 

; abort on error 

; increment sector no. 



; do the command 

; initialize block count 

;data register 

; transfer address 



;prepare for write 
; abort operation 

? start a write 

; sector operation 



load 1st byte of data 

advance pointer 

write 1st byte of data 

load 2nd byte of data 

advance pointer 

write 2nd byte of data 

load 3rd byte of data 

advance pointer 

write 3rd byte of data 

reduce block count 

load 4th byte of data 

advance pointer 

write 4th byte of data 

write next 4 bytes 

return entry address 



;prepare for read 
; abort operation 

; start a read 

; sector operation 



read 1st byte 
store 1st byte 
advance pointer 
read 2nd byte 
store 2nd byte 
advance pointer 
read 3rd byte 
store 3rd byte 
advance pointer 
reduce block count 
read 4th byte 
store 4th byte 
advance pointer 
read next 4 bytes 
return entry address 

;save return address 

;wait for the 1791 

; to finish command 

; error bit mask 

; test 

■DrfimalMire i nterrunt 





jnz 


pleave 




Ida 


ecount 




dcr 


a 




jra 


stest 




sta 


ecount 




ret 




stest 








Ida 


ecount+1 




dcr 


a 




JP 


issue 




mvi 


a,10h 


pleave 


stc 






pop 


h 


LEAVE 








PUSH 


PSW 




LDA 


DCREG 




XRI 


LOAD 




CALL 


SCBITS 




POP 


PSW 




RET 




* 






4k 






PREP 








CALL 


HDLOAD 




RC 






LDA 


TRKREG 




INR 


A 




CZ 


HENTRY 




re 






LXI 


H, TRKREG 




LDA 


TRACK 




CMP 


M 




rax 


H 




I NX 


H 




MOV 


M,A 




MOV 


A,C 




CALL 


SCBITS 




JZ 


TVERFY 




XRA 


A 




STA 


HDFLAG 




CALL 


LDSTAT 




AN I 


DSIDE 




RAR 






RAR 






RAR 






ADI 


SKCMD 




LXI 


H,0 




CALL 


CENTRY 




JC 


SERROR 


TVERFY 








LDA 


HDFLAG 




ORA 


A 




JNZ 


CHKSEC 




MVI 


B,2 


9 SLOOP 








MVI 


A, SVCMD 




CALL 


COMAND 




AN I 


231Q 




mov 


d,a 




JZ 


RDHDR 




LDA 


DCREG 




XRI 


DENSTY 




STA 


DCREG 




XRI 


ACCESS 




CALL 


SCBITS 



;other error type 

.•decrement error 

; count number 1 

;hard interrupt error 

; update count 

;do operation over 

; decrement error 
; count number 2 
; issue a command 
; irrecoverable error 

; error flag 

; adjust the stack 

save the flags 
1791 control bits 
toggle the 

head load bits 
recover the flags 



load the head 
disk not ready? 
get the old trk 
test for head 

not calibrated 
seek error? 
present trk 
the new track 
test for head motion 
advance to the 

data register 
save the new trk 
turn off data 

access control bit 
test for seej 
force a read 

header operation 
get the 

double 

flag 

to do 3 ms 

step operation 

do a seek 
command 

seek error? 

;get the force 
; verify track flag 
;no seek & head OK 
; verify retry no 

;do a verify 

; command 

; error bit mask 

; save 

;no error 

;1791 control reg 

;flip the density bit 

; update 

: chancre densitv 





DCR 


B 




JNZ 


SLOOP 




raov 


a,d 


SERROR 


stc 






push 


psw 




call 


hent.ry 




pop 


psw 




ret 




RDHDR 








MVI 


B,12Q 


RHLOOP 








LXI 


D,DATREG 




LXI 


H,TRACK+1 




MVI 


A,RACMD 




STA 


CMDREG 


RHL1 








LDAX 


D 




MOV 


M,A 




INR 


L 




JNZ 


RHL1 




LXI 


H,CSTAT 




CALL 


BUSY 




ORA 


A 




JZ 


CHKSEC 




DCR 


B 




JNZ 


RHLOOP 




JMP 


SERROR 


CHKSEC 








LDA 


SECLEN 




MOV 


C,A 




MVI 


B,0 




LXI 


H, STABLE 




DAD 


B 




LDA 


SECTOR 




MOV 


B,A 




ADD 


M 




MVI 


A, 20Q 




RC 






MOV 


A,B 




STA 


SECREG 




mvi 


a,40q 




lxi 


h,505h 




shld 


ecount 


SZLOOP 








DCR 


C 




MOV 


b,a 




rra 






ral 






ora 


a 


* 


JMP 


SZLOOP 


* 

SIDEFX 








MOV 


A,C 




AMI 


1 




RAL 






RAL 






RAL 






RAL 






STA 


SIDE 




RET 




TOEND 






* 







;dec retry count 

; and try again 

; restore error bits 

rerror flag 
7 save the status 
7 seek to track 
; recover errors 



7 number of retrys 

data register 
storage area 

do the read 

header command 



get a data byte 
store in memory 
inc mem pointer 
test for more data 
wait for 1791 
to finish cmd 
test for errors 
transfer OK? 
dec retry count 
test for 
hard error 

get the sector 

size and setup 

the offset 
sec size tbl 
add the offset 
get the sector 
save in B 

compare w/ table entry 
error flag 
error return 
save the sector 

in sector reg 
128 byte sector 
initialize 

error counts 

; reduce size count 
; sector size to b 
; return on minus 
7 double the count 
7 clear the carry 



get the side bit 

trim excess bits 

move the bit 
to the side 
select bit 
position 

save 



DE 



300h-TOEND+DBOOT-66O 



DS 



2 5Q 



* 






* 






STACK 
* 






* 

STABLE 








DB 


345Q 




DB 


345Q 




DB 


360Q 


* 


DB 


367Q 


* 

ecount 


dw 





TIMER 


DW 


3000h 


DMAADR 


DW 


200Q 


HDFLAG 


DB 





DRVSEL 


DB 


376Q 


DISK 


DB 





CDISK 


DB 


10Q 


TZFLAG 


DB 





D0PRAM 


DB 


3 


D0TRK 


DB 


377Q 


D1PRAM 


DB 


3 


D1TRK 


DB 


377Q 


D2PRAM 


DB 


3 


D2TRK 


DB 


377Q 


D3PRAM 


DB 


3 


D3TRK 


DB 


377Q 


DCREG 


DB 


3 


SIDE 


DB 





SECTOR 


DB 


3 


TRACK 


DB 





TRKNO 


DB 





SIDENO 


DB 





SECTNO 


DB 





SECLEN 


DB 





CRCLO 


DB 





CRCHI 
* 


DB 





* 

HDLOAD 








LXI 


H,DISK 




MOV 


C,M 




INX 


H 




MOV 


E,M 




MOV 


M,C 




INX 


H 




MOV 


A,E 




CMP 


C 




MOV 


A,M 




MVI 


M,HEAD 




INX 


H 




JZ 


HDCHK 




PUSH 


H 




MVI 


D,0 




MOV 


B,D 




DAD 


D 




DAD 


D 




LDA 


DCREG 




MOV 


M,A 




INX 


H 




LXI 


D,TRKREG 




LDAX 


D 




MOV 


M, A 




POP 


H 



error count cells 
head load time 
dma address 
read header flag 

drive select constant 
new drive 
current drive 
track zero indicator 
drive parameters 
drive track no 
drive 1 parameters 
drive 1 track no 
drive 2 parameters 
drive 2 track no 
drive 3 parameters 
drive 3 track no 
current parameters 
new side select 
new sector 
new track 
disk 

sector 

header 

data 

buffer 



ynew disk no to C 

current disk to E 
update current disk 
addr of disk table 
test for 

disk change 
head load flag 
update head load 
addr of disk table 
no disk change? 
save table address 
set up the 

offset address 
get the current 

disk parameters 
save the 
density info 
current track 

;get current trk 

; save 

: recover tbl addr 



DAD 


B 


DAD 


B 


MOV 


A,M 


STA 


DC REG 


INX 


H 


MOV 


A,M 


STAX 


D 


MVI 

hcdht 


A,177Q 


jOi\.\-/ J. 

RLC 




DCR 


C 


JP 


DSROT 


STA 


DRVSEL 


XRA 


A 


CALL 


LOADS 


ANA 


M 


STA 


HDFLAG 


PUSH 


PSW 


LDA 


DRVSEL 


I40V 


C, A 


LDA 


SIDE 


CMA 




ANA 


C 


CALL 


SDSEL 


LDA 


DCREG 


MOV 


C,A 


LDA 


TRACK 


SUI 


1 


SBB 


A 


DCR 


A 


CMA 




ORA 


C 


MOV 


M,A 


XRI 


ACCESS 


MOV 


C,A 


POP 


PSW 


JNZ 


RDYCHK 


PUSH 


H 


LHLD 


TIMER 


i LiKJOtr 

DCX 


H 


MOV 


A,H 


ORA 


L 


JNZ 


TLOOP 


POP 


H 


EsAJ X Lill\ 

MOV 


A,M 


AN I 


READY 


RZ 




UNLOAD 




LDA 


DCREG 


ORI 


ULOAD 


MOV 


M,A 


MVI 


A,200Q 


STC 




RET 




* 




* 




COMAND 




LHLD 


TIMER 


DAD 


H 


DAD 


H 


CENTRY 




XCHG 




T.XT 


H.CSTRT 



; add the 
; offset 
;get control bits 
; update DCREG 
;get the old 
; track number 
;and update 1791 
;disk select bits 



rotate to 

select the 

proper drive 
save 
force head load 

test for 

head loaded 

save the head 
loaded status 

get current drive 

save 

get current side 

and merge 

with drive select 

select drive & side 

1791 control bits 

save 

get the new trk 

force single 
density 
if track = 

compliment 

merge w/control bits 

set 1791 control 

toggel access bit 

save PREP routine 

head load status 

conditionally 
wait for head 
load time out 

count down 

40 ms for 

head load 

time out 
disk status addr 

;test for 

; disk ready 



force a 

head 

unload 
set disk 

not ready 

error flag 



get index count 
and multiply 
by four 

;save in D-E pair 
- i rsup nornmanrl 





MOV 


M,A ; 


to the 1791 


NBUSY 










MOV 


A,M j 


wait 




RAR 




for the 




JNC 


NBUSY \ 


busy flag 


BUSY 










MOV 


A,M j 


test for 




RAR 




device busy 




MOV 


A,M ! 


restore status 




RNC 




return if not busy 




DCX 


D • 


•test for 




MOV 


A,D j 


two disk 




ORA 


E 


revolutions 




JNZ 


BUSY ; 


47 machine cycles 




raov 


e,m ; 


save error code 




PUSH 


H ; 


save cmd address 




I NX 


H ; 


track register 




MOV 


D,M ; 


save present track 




xthl 




■recover cmd reg. 




push 


d \ 


•save status 




xchg 




•adjust registers 




call 


loads ; 


•get control reg 




LDA 


DC REG 


•1791 control bits 




xri 


RSTBIT ; 


•reset the 1791 




mov 


m,a 


controller to 




xri 


rstbit ; 


clear fault 




xchg 




•adjust registers 




stax 


d 


•start controller 




MVI 


M f CLRCMD 


•force an interrupt 




pop 


d 


•recover status 




POP 


H 


•recover track reg 




mov 


m,d , 


•restore track 




mov 


a,e , 


•restore error code 




STC 




error flag 


* 
•k 


RET 






MEASUR 










LXI 


D,0 


^initialize count 




CALL 


LOADS 


r status port 




MVI 


C , INDEX 


r index bit flag 


INDXHI 










MOV 


A f M 


rwait for 




ANA 


C 


index 


indxl 


JNZ 


INDXHI 


r pulse low 


INDXLO 










MOV 


A,M 


rwait for 




ANA 


C 


index 


indx2 


JZ 


INDXLO 


r pulse high 


INDXCT 










I NX 


D 


r advance count 




XTHL 




; four 




XTHL 




; dummy 




XTHL 




; instructions 




XTHL 




r for delay 




MOV 


A,M 


rwait 




ANA 


C 


r for next 


indx3 


JNZ 


INDXCT 


; low index 


* 


RET 




r93 machine cycles 


* 

# DENFIX 










MOV 


A,C 


rtrim excess 




ANI 


1 


r bits, 




CMA 




r compliment 




MOV 


n. a 


• R Pir\r\ ssvfl 





LXI 


H,DISK 




MOV 


E , M 




MVI 


D,0 




INX 


H 




MOV 


A,M 




XRA 


E 




PUSH 


PSW 




INX 


H 




INX 


H 




DAD 


D 




DAD 


D 




MOV 


A,M 




ORI 


1 




ANA 


B 




MOV 


M,A 




POP 


PSW 




RNZ 






MOV 


A,M 




STA 


DCREG 




RET 




* 






* 






SDSEL 








STA 


DREG 




RET 




LUSTAT 








LDA 


US TAT 




RET 




SCBITS 








STA 


DCMD 




RET 




LDSTAT 








LDA 


DSTAT 




RET 




LOADS 








LXI 


H,DSTAT 




RET 






endif 






end 





new disk 
get disk no 
offset addr 
current disk 
move to ACC 
compare w/new 
save status 
disk table 

address 
add the 
offset 

get parameters 
mask off density- 
set new density 
update 

check for nd=cd 
new disk not old 
update CDISK 

also 



;drive select reg 



;UART status reg 



;1791 control reg 



;drive status reg 



; drive status reg 



